?type something like Boolean

[lee666]

What Im trying to achieve is to make my own
?type something like Boolean
Dim isOn As Boolean

Enum is wrong I think but it will gave you some idea of what

Im trying to achieve
 
 Enum State 
   isOn = -1
   isOff = 0
End Enum
 
Dim MyState As State
Sub Swichstate
If MyState= isOn Then MyState = isOff Else MyState = isOn
End Sub
 
Enum Size
   Small = -1
   Medium= 0
   Big = 1
End Enum
Dim PlateSize As Size
 
Sub Swicht(PlateOverFlows As Boolean)
If PlateOverFlows = True Then
Select Case PlateSize
Case Small
     PlateSize = Medium
Case Medium
     PlateSize = Big
Case Big
    Get_AtherPlate
End Select
End Sub

[_visual_basic_]

Dim isOn as Boolean

isOn = True
isOn = Not True 'Not True is faster than False

[lee666]

Now Im realize what Im trying to do

make my own "vartype"

[_visual_basic_]

you cant do that with VB you have to code ASM

[RhinoBull]

you cant do that with VB you have to code ASM

Not in the way he wants it but you can always do something like the following (not sure why but anyway):

Option Explicit
 
Private Type tStatus
    blnStatus As Boolean
End Type
Dim MyStatus As tStatus
 
Private Sub Command1_Click()
    MyStatus.blnStatus = Not MyStatus.blnStatus
    Check1.Value = Abs(CInt(MyStatus.blnStatus))
End Sub

[MartinLiss]

...Enum is wrong I think...

Why?